object Prenatal: TPrenatal
  Left = 133
  Top = 125
  BorderStyle = bsDialog
  Caption = 'Prenatal History'
  ClientHeight = 399
  ClientWidth = 560
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = 'System'
  Font.Style = []
  PixelsPerInch = 96
  Position = poScreenCenter
  OnActivate = FormActivate
  TextHeight = 16
  object TabNote: TTabbedNotebook
    Left = 0
    Top = 0
    Width = 560
    Height = 399
    Align = alClient
    TabFont.Color = clBlue
    TabFont.Height = -12
    TabFont.Name = 'MS Sans Serif'
    TabFont.Style = []
    TabOrder = 0
    object TTabPage
      Left = 5
      Top = 26
      Caption = 'Dates to Remember'
      object Label1: TLabel
        Left = 16
        Top = 16
        Width = 173
        Height = 19
        Alignment = taRightJustify
        Caption = 'Pregnancy Confirmed:'
        Font.Color = clBlue
        Font.Height = -16
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label2: TLabel
        Left = 8
        Top = 336
        Width = 132
        Height = 22
        Caption = 'Prenatal History'
        Font.Color = clBlue
        Font.Height = -19
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
      end
      object Label5: TLabel
        Left = 33
        Top = 48
        Width = 156
        Height = 19
        Alignment = taRightJustify
        Caption = 'Estimated Due Date:'
        Font.Color = clBlue
        Font.Height = -16
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label6: TLabel
        Left = 66
        Top = 80
        Width = 123
        Height = 19
        Alignment = taRightJustify
        Caption = 'Began to Show:'
        Font.Color = clBlue
        Font.Height = -16
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label7: TLabel
        Left = 73
        Top = 112
        Width = 116
        Height = 19
        Alignment = taRightJustify
        Caption = 'Felt Baby Kick:'
        Font.Color = clBlue
        Font.Height = -16
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label8: TLabel
        Left = 59
        Top = 144
        Width = 130
        Height = 19
        Alignment = taRightJustify
        Caption = 'Heard Heartbeat:'
        Font.Color = clBlue
        Font.Height = -16
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label9: TLabel
        Left = 98
        Top = 176
        Width = 91
        Height = 19
        Alignment = taRightJustify
        Caption = 'Ultrasound:'
        Font.Color = clBlue
        Font.Height = -16
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label10: TLabel
        Left = 30
        Top = 208
        Width = 159
        Height = 19
        Alignment = taRightJustify
        Caption = 'Baby Names Picked:'
        Font.Color = clBlue
        Font.Height = -16
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label11: TLabel
        Left = 42
        Top = 240
        Width = 147
        Height = 19
        Alignment = taRightJustify
        Caption = 'First Baby Shower:'
        Font.Color = clBlue
        Font.Height = -16
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label12: TLabel
        Left = 35
        Top = 272
        Width = 154
        Height = 19
        Alignment = taRightJustify
        Caption = 'Nursery Completed:'
        Font.Color = clBlue
        Font.Height = -16
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object D1: TMaskEdit
        Left = 192
        Top = 8
        Width = 81
        Height = 26
        EditMask = '!99/99/00;1;_'
        Font.Color = clBlack
        Font.Height = -16
        Font.Name = 'Arial'
        Font.Style = []
        MaxLength = 8
        ParentFont = False
        TabOrder = 0
        Text = '  /  /  '
      end
      object D2: TMaskEdit
        Left = 192
        Top = 40
        Width = 81
        Height = 26
        EditMask = '!99/99/00;1;_'
        Font.Color = clBlack
        Font.Height = -16
        Font.Name = 'Arial'
        Font.Style = []
        MaxLength = 8
        ParentFont = False
        TabOrder = 1
        Text = '  /  /  '
      end
      object D3: TMaskEdit
        Left = 192
        Top = 72
        Width = 81
        Height = 26
        EditMask = '!99/99/00;1;_'
        Font.Color = clBlack
        Font.Height = -16
        Font.Name = 'Arial'
        Font.Style = []
        MaxLength = 8
        ParentFont = False
        TabOrder = 2
        Text = '  /  /  '
      end
      object D4: TMaskEdit
        Left = 192
        Top = 104
        Width = 81
        Height = 26
        EditMask = '!99/99/00;1;_'
        Font.Color = clBlack
        Font.Height = -16
        Font.Name = 'Arial'
        Font.Style = []
        MaxLength = 8
        ParentFont = False
        TabOrder = 3
        Text = '  /  /  '
      end
      object D5: TMaskEdit
        Left = 192
        Top = 136
        Width = 81
        Height = 26
        EditMask = '!99/99/00;1;_'
        Font.Color = clBlack
        Font.Height = -16
        Font.Name = 'Arial'
        Font.Style = []
        MaxLength = 8
        ParentFont = False
        TabOrder = 4
        Text = '  /  /  '
      end
      object D6: TMaskEdit
        Left = 192
        Top = 168
        Width = 81
        Height = 26
        EditMask = '!99/99/00;1;_'
        Font.Color = clBlack
        Font.Height = -16
        Font.Name = 'Arial'
        Font.Style = []
        MaxLength = 8
        ParentFont = False
        TabOrder = 5
        Text = '  /  /  '
      end
      object D7: TMaskEdit
        Left = 192
        Top = 200
        Width = 81
        Height = 26
        EditMask = '!99/99/00;1;_'
        Font.Color = clBlack
        Font.Height = -16
        Font.Name = 'Arial'
        Font.Style = []
        MaxLength = 8
        ParentFont = False
        TabOrder = 6
        Text = '  /  /  '
      end
      object D8: TMaskEdit
        Left = 192
        Top = 232
        Width = 81
        Height = 26
        EditMask = '!99/99/00;1;_'
        Font.Color = clBlack
        Font.Height = -16
        Font.Name = 'Arial'
        Font.Style = []
        MaxLength = 8
        ParentFont = False
        TabOrder = 7
        Text = '  /  /  '
      end
      object D9: TMaskEdit
        Left = 192
        Top = 264
        Width = 81
        Height = 26
        EditMask = '!99/99/00;1;_'
        Font.Color = clBlack
        Font.Height = -16
        Font.Name = 'Arial'
        Font.Style = []
        MaxLength = 8
        ParentFont = False
        TabOrder = 8
        Text = '  /  /  '
      end
      object GroupBox1: TGroupBox
        Left = 280
        Top = 8
        Width = 257
        Height = 281
        Caption = 'Other Dates to Remember'
        Font.Color = clBlue
        Font.Height = -13
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 9
        object O1: TEdit
          Left = 8
          Top = 24
          Width = 153
          Height = 26
          Font.Color = clBlack
          Font.Height = -16
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
          TabOrder = 0
        end
        object D10: TMaskEdit
          Left = 168
          Top = 23
          Width = 81
          Height = 26
          EditMask = '!99/99/00;1;_'
          Font.Color = clBlack
          Font.Height = -16
          Font.Name = 'Arial'
          Font.Style = []
          MaxLength = 8
          ParentFont = False
          TabOrder = 1
          Text = '  /  /  '
        end
        object D11: TMaskEdit
          Left = 168
          Top = 55
          Width = 81
          Height = 26
          EditMask = '!99/99/00;1;_'
          Font.Color = clBlack
          Font.Height = -16
          Font.Name = 'Arial'
          Font.Style = []
          MaxLength = 8
          ParentFont = False
          TabOrder = 3
          Text = '  /  /  '
        end
        object D12: TMaskEdit
          Left = 168
          Top = 87
          Width = 81
          Height = 26
          EditMask = '!99/99/00;1;_'
          Font.Color = clBlack
          Font.Height = -16
          Font.Name = 'Arial'
          Font.Style = []
          MaxLength = 8
          ParentFont = False
          TabOrder = 5
          Text = '  /  /  '
        end
        object D13: TMaskEdit
          Left = 168
          Top = 119
          Width = 81
          Height = 26
          EditMask = '!99/99/00;1;_'
          Font.Color = clBlack
          Font.Height = -16
          Font.Name = 'Arial'
          Font.Style = []
          MaxLength = 8
          ParentFont = False
          TabOrder = 7
          Text = '  /  /  '
        end
        object D14: TMaskEdit
          Left = 168
          Top = 151
          Width = 81
          Height = 26
          EditMask = '!99/99/00;1;_'
          Font.Color = clBlack
          Font.Height = -16
          Font.Name = 'Arial'
          Font.Style = []
          MaxLength = 8
          ParentFont = False
          TabOrder = 9
          Text = '  /  /  '
        end
        object D15: TMaskEdit
          Left = 168
          Top = 183
          Width = 81
          Height = 26
          EditMask = '!99/99/00;1;_'
          Font.Color = clBlack
          Font.Height = -16
          Font.Name = 'Arial'
          Font.Style = []
          MaxLength = 8
          ParentFont = False
          TabOrder = 11
          Text = '  /  /  '
        end
        object D16: TMaskEdit
          Left = 168
          Top = 215
          Width = 81
          Height = 26
          EditMask = '!99/99/00;1;_'
          Font.Color = clBlack
          Font.Height = -16
          Font.Name = 'Arial'
          Font.Style = []
          MaxLength = 8
          ParentFont = False
          TabOrder = 13
          Text = '  /  /  '
        end
        object D17: TMaskEdit
          Left = 168
          Top = 247
          Width = 81
          Height = 26
          EditMask = '!99/99/00;1;_'
          Font.Color = clBlack
          Font.Height = -16
          Font.Name = 'Arial'
          Font.Style = []
          MaxLength = 8
          ParentFont = False
          TabOrder = 15
          Text = '  /  /  '
        end
        object O2: TEdit
          Left = 8
          Top = 56
          Width = 153
          Height = 26
          Font.Color = clBlack
          Font.Height = -16
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
          TabOrder = 2
        end
        object O3: TEdit
          Left = 8
          Top = 88
          Width = 153
          Height = 26
          Font.Color = clBlack
          Font.Height = -16
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
          TabOrder = 4
        end
        object O4: TEdit
          Left = 8
          Top = 120
          Width = 153
          Height = 26
          Font.Color = clBlack
          Font.Height = -16
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
          TabOrder = 6
        end
        object O5: TEdit
          Left = 8
          Top = 152
          Width = 153
          Height = 26
          Font.Color = clBlack
          Font.Height = -16
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
          TabOrder = 8
        end
        object O6: TEdit
          Left = 8
          Top = 184
          Width = 153
          Height = 26
          Font.Color = clBlack
          Font.Height = -16
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
          TabOrder = 10
        end
        object O7: TEdit
          Left = 8
          Top = 216
          Width = 153
          Height = 26
          Font.Color = clBlack
          Font.Height = -16
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
          TabOrder = 12
        end
        object O8: TEdit
          Left = 8
          Top = 248
          Width = 153
          Height = 26
          Font.Color = clBlack
          Font.Height = -16
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
          TabOrder = 14
        end
      end
      object HelpBtn: TBitBtn
        Left = 312
        Top = 320
        Width = 25
        Height = 33
        Caption = ' '
        Font.Color = clYellow
        Font.Height = -19
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
        TabOrder = 10
        OnClick = HelpBtnClick
        Kind = bkHelp
        Margin = 2
        Spacing = -1
      end
    end
    object TTabPage
      Left = 5
      Top = 26
      Caption = 'Prenatal Diary'
      object Shape1: TShape
        Left = 392
        Top = 200
        Width = 81
        Height = 97
        Brush.Color = clBtnFace
        Pen.Color = clRed
        Pen.Style = psInsideFrame
        Pen.Width = 2
      end
      object Label3: TLabel
        Left = 8
        Top = 336
        Width = 132
        Height = 22
        Caption = 'Prenatal History'
        Font.Color = clBlue
        Font.Height = -19
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
      end
      object Label13: TLabel
        Left = 152
        Top = 8
        Width = 41
        Height = 19
        Caption = 'Date:'
        Font.Color = clBlue
        Font.Height = -16
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label14: TLabel
        Left = 16
        Top = 48
        Width = 38
        Height = 19
        Caption = 'Title:'
        Font.Color = clBlue
        Font.Height = -16
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label15: TLabel
        Left = 360
        Top = 24
        Width = 99
        Height = 19
        Caption = 'Date Search:'
        Font.Color = clBlue
        Font.Height = -16
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label16: TLabel
        Left = 360
        Top = 88
        Width = 96
        Height = 19
        Caption = 'Title Search:'
        Font.Color = clBlue
        Font.Height = -16
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Title: TLabel
        Left = 64
        Top = 48
        Width = 249
        Height = 19
        AutoSize = False
        Caption = 'Diary Empty'
        Font.Color = clBlue
        Font.Height = -16
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object SpeedButton1: TSpeedButton
        Left = 288
        Top = 248
        Width = 25
        Height = 25
        Hint = 'Prevoious Entry'
        Glyph.Data = {
          78010000424D7801000000000000760000002800000020000000100000000100
          04000000000000000000120B0000120B00000000000000000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333000333
          3333333333777F33333333333309033333333333337F7F333333333333090333
          33333333337F7F33333333333309033333333333337F7F333333333333090333
          33333333337F7F33333333333309033333333333FF7F7FFFF333333000090000
          3333333777737777F333333099999990333333373F3333373333333309999903
          333333337F33337F33333333099999033333333373F333733333333330999033
          3333333337F337F3333333333099903333333333373F37333333333333090333
          33333333337F7F33333333333309033333333333337373333333333333303333
          333333333337F3333333333333303333333333333337333333330000}
        NumGlyphs = 2
        ParentShowHint = False
        ShowHint = True
        OnClick = SpeedButton1Click
      end
      object SpeedButton3: TSpeedButton
        Left = 288
        Top = 280
        Width = 25
        Height = 25
        Hint = 'Next Entry'
        Glyph.Data = {
          78010000424D7801000000000000760000002800000020000000100000000100
          04000000000000000000120B0000120B00000000000000000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333303333
          333333333337F33333333333333033333333333333373F333333333333090333
          33333333337F7F33333333333309033333333333337373F33333333330999033
          3333333337F337F33333333330999033333333333733373F3333333309999903
          333333337F33337F33333333099999033333333373333373F333333099999990
          33333337FFFF3FF7F33333300009000033333337777F77773333333333090333
          33333333337F7F33333333333309033333333333337F7F333333333333090333
          33333333337F7F33333333333309033333333333337F7F333333333333090333
          33333333337F7F333333333333000333333333333377733333330000}
        NumGlyphs = 2
        ParentShowHint = False
        ShowHint = True
        OnClick = SpeedButton3Click
      end
      object DelButton: TSpeedButton
        Left = 408
        Top = 224
        Width = 49
        Height = 49
        Glyph.Data = {
          26020000424D260200000000000076000000280000001C0000001B0000000100
          040000000000B0010000CE0E0000D80E00000000000000000000000000000000
          8000008000000080800080000000800080008080000080808000C0C0C0000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00666666666666
          66666666676666660000666666666666666666667B101B160000666666666666
          66666667B101B1B600006666666666666666667B101B1B060000666666666666
          666667B101B1B0B6000066666666666666667B101B1B0B060000666666666666
          66670101B1B0B00600006666666666666672001B1B0B00060000666666666666
          67022201B0B0000600006666666666667B0022000B0000660000666666666667
          B1B10220B0000666000066666666667B1B1B0020000066660000666666666701
          B1B1B0200006666600006666666672001B1B1000006666660000666666670222
          01B1B000066666660000666666780022001B00006666666600006666678D8D02
          20B0000666666666000066667008D800200000666666666600006667FDF08D80
          20000666666666660000667FDFD0D8D00000666666666666000067FDFDF00D80
          0006666666666666000067DFDFDF08000066666666666666000060FDFDFD0000
          06666666666666660000600FDFDF000066666666666666660000600DFDF00006
          6666666666666666000060000000006666666666666666660000660000000666
          66666666666666660000}
        OnClick = DelButtonClick
      end
      object Label17: TLabel
        Left = 400
        Top = 208
        Width = 65
        Height = 16
        Alignment = taCenter
        AutoSize = False
        Caption = 'Delete'
        Font.Color = clRed
        Font.Height = -13
        Font.Name = 'System'
        Font.Style = [fsBold]
        ParentFont = False
        Transparent = True
      end
      object Label18: TLabel
        Left = 400
        Top = 272
        Width = 65
        Height = 16
        Alignment = taCenter
        AutoSize = False
        Caption = 'Record'
        Font.Color = clRed
        Font.Height = -13
        Font.Name = 'System'
        Font.Style = [fsBold]
        ParentFont = False
        Transparent = True
      end
      object EntryDate: TLabel
        Left = 200
        Top = 8
        Width = 64
        Height = 19
        Caption = '__-__-__'
        Font.Color = clBlue
        Font.Height = -16
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Entry: TMemo
        Left = 16
        Top = 80
        Width = 265
        Height = 225
        Lines.Strings = (
          '')
        ScrollBars = ssVertical
        TabOrder = 0
      end
      object DateSearch: TComboBox
        Left = 360
        Top = 48
        Width = 145
        Height = 26
        Font.Color = clBlue
        Font.Height = -16
        Font.Name = 'Arial'
        Font.Style = []
        ItemHeight = 18
        ParentFont = False
        TabOrder = 1
        OnClick = DateSearchClick
      end
      object TitleSearch: TComboBox
        Left = 360
        Top = 112
        Width = 145
        Height = 26
        Font.Color = clBlue
        Font.Height = -16
        Font.Name = 'Arial'
        Font.Style = []
        ItemHeight = 18
        ParentFont = False
        TabOrder = 2
        OnClick = TitleSearchClick
      end
      object BitBtn1: TBitBtn
        Left = 360
        Top = 152
        Width = 145
        Height = 33
        Caption = 'New Entry'
        Font.Color = clBlue
        Font.Height = -19
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 3
        OnClick = BitBtn1Click
      end
      object BitBtn3: TBitBtn
        Left = 312
        Top = 320
        Width = 25
        Height = 33
        Caption = ' '
        Font.Color = clYellow
        Font.Height = -19
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
        TabOrder = 4
        OnClick = BitBtn3Click
        Kind = bkHelp
        Margin = 2
        Spacing = -1
      end
    end
    object TTabPage
      Left = 5
      Top = 26
      Caption = 'Prenatal Medical Diary'
      object Shape2: TShape
        Left = 392
        Top = 200
        Width = 81
        Height = 97
        Brush.Color = clBtnFace
        Pen.Color = clRed
        Pen.Style = psInsideFrame
        Pen.Width = 2
      end
      object Label4: TLabel
        Left = 8
        Top = 336
        Width = 132
        Height = 22
        Caption = 'Prenatal History'
        Font.Color = clBlue
        Font.Height = -19
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
      end
      object Label19: TLabel
        Left = 152
        Top = 8
        Width = 41
        Height = 19
        Caption = 'Date:'
        Font.Color = clBlue
        Font.Height = -16
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label20: TLabel
        Left = 16
        Top = 48
        Width = 38
        Height = 19
        Caption = 'Title:'
        Font.Color = clBlue
        Font.Height = -16
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label21: TLabel
        Left = 360
        Top = 24
        Width = 99
        Height = 19
        Caption = 'Date Search:'
        Font.Color = clBlue
        Font.Height = -16
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label22: TLabel
        Left = 360
        Top = 88
        Width = 96
        Height = 19
        Caption = 'Title Search:'
        Font.Color = clBlue
        Font.Height = -16
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object MedTitle: TLabel
        Left = 64
        Top = 48
        Width = 249
        Height = 19
        AutoSize = False
        Caption = 'Diary Empty'
        Font.Color = clBlue
        Font.Height = -16
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object SpeedButton2: TSpeedButton
        Left = 288
        Top = 248
        Width = 25
        Height = 25
        Hint = 'Previous Entry'
        Glyph.Data = {
          78010000424D7801000000000000760000002800000020000000100000000100
          04000000000000000000120B0000120B00000000000000000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333000333
          3333333333777F33333333333309033333333333337F7F333333333333090333
          33333333337F7F33333333333309033333333333337F7F333333333333090333
          33333333337F7F33333333333309033333333333FF7F7FFFF333333000090000
          3333333777737777F333333099999990333333373F3333373333333309999903
          333333337F33337F33333333099999033333333373F333733333333330999033
          3333333337F337F3333333333099903333333333373F37333333333333090333
          33333333337F7F33333333333309033333333333337373333333333333303333
          333333333337F3333333333333303333333333333337333333330000}
        NumGlyphs = 2
        ParentShowHint = False
        ShowHint = True
        OnClick = SpeedButton2Click
      end
      object SpeedButton4: TSpeedButton
        Left = 408
        Top = 224
        Width = 49
        Height = 49
        Glyph.Data = {
          26020000424D260200000000000076000000280000001C0000001B0000000100
          040000000000B0010000CE0E0000D80E00000000000000000000000000000000
          8000008000000080800080000000800080008080000080808000C0C0C0000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00666666666666
          66666666676666660000666666666666666666667B101B160000666666666666
          66666667B101B1B600006666666666666666667B101B1B060000666666666666
          666667B101B1B0B6000066666666666666667B101B1B0B060000666666666666
          66670101B1B0B00600006666666666666672001B1B0B00060000666666666666
          67022201B0B0000600006666666666667B0022000B0000660000666666666667
          B1B10220B0000666000066666666667B1B1B0020000066660000666666666701
          B1B1B0200006666600006666666672001B1B1000006666660000666666670222
          01B1B000066666660000666666780022001B00006666666600006666678D8D02
          20B0000666666666000066667008D800200000666666666600006667FDF08D80
          20000666666666660000667FDFD0D8D00000666666666666000067FDFDF00D80
          0006666666666666000067DFDFDF08000066666666666666000060FDFDFD0000
          06666666666666660000600FDFDF000066666666666666660000600DFDF00006
          6666666666666666000060000000006666666666666666660000660000000666
          66666666666666660000}
        OnClick = SpeedButton4Click
      end
      object SpeedButton5: TSpeedButton
        Left = 288
        Top = 280
        Width = 25
        Height = 25
        Hint = 'Next Entry'
        Glyph.Data = {
          78010000424D7801000000000000760000002800000020000000100000000100
          04000000000000000000120B0000120B00000000000000000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333303333
          333333333337F33333333333333033333333333333373F333333333333090333
          33333333337F7F33333333333309033333333333337373F33333333330999033
          3333333337F337F33333333330999033333333333733373F3333333309999903
          333333337F33337F33333333099999033333333373333373F333333099999990
          33333337FFFF3FF7F33333300009000033333337777F77773333333333090333
          33333333337F7F33333333333309033333333333337F7F333333333333090333
          33333333337F7F33333333333309033333333333337F7F333333333333090333
          33333333337F7F333333333333000333333333333377733333330000}
        NumGlyphs = 2
        ParentShowHint = False
        ShowHint = True
        OnClick = SpeedButton5Click
      end
      object Label24: TLabel
        Left = 400
        Top = 208
        Width = 65
        Height = 16
        Alignment = taCenter
        AutoSize = False
        Caption = 'Delete'
        Font.Color = clRed
        Font.Height = -13
        Font.Name = 'System'
        Font.Style = [fsBold]
        ParentFont = False
        Transparent = True
      end
      object Label25: TLabel
        Left = 400
        Top = 272
        Width = 65
        Height = 16
        Alignment = taCenter
        AutoSize = False
        Caption = 'Record'
        Font.Color = clRed
        Font.Height = -13
        Font.Name = 'System'
        Font.Style = [fsBold]
        ParentFont = False
        Transparent = True
      end
      object MedDate: TLabel
        Left = 200
        Top = 8
        Width = 64
        Height = 19
        Caption = '__-__-__'
        Font.Color = clBlue
        Font.Height = -16
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object MedEntry: TMemo
        Left = 16
        Top = 80
        Width = 265
        Height = 225
        Lines.Strings = (
          '')
        ScrollBars = ssVertical
        TabOrder = 0
      end
      object MedDateSearch: TComboBox
        Left = 360
        Top = 48
        Width = 145
        Height = 26
        Font.Color = clBlue
        Font.Height = -16
        Font.Name = 'Arial'
        Font.Style = []
        ItemHeight = 18
        ParentFont = False
        TabOrder = 1
        OnClick = MedDateSearchClick
      end
      object MedTitleSearch: TComboBox
        Left = 360
        Top = 112
        Width = 145
        Height = 26
        Font.Color = clBlue
        Font.Height = -16
        Font.Name = 'Arial'
        Font.Style = []
        ItemHeight = 18
        ParentFont = False
        TabOrder = 2
        OnClick = MedTitleSearchClick
      end
      object BitBtn2: TBitBtn
        Left = 360
        Top = 152
        Width = 145
        Height = 33
        Caption = 'New Entry'
        Font.Color = clBlue
        Font.Height = -19
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 3
        OnClick = BitBtn2Click
      end
      object BitBtn4: TBitBtn
        Left = 312
        Top = 320
        Width = 25
        Height = 33
        Caption = ' '
        Font.Color = clYellow
        Font.Height = -19
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
        TabOrder = 4
        OnClick = BitBtn4Click
        Kind = bkHelp
        Margin = 2
        Spacing = -1
      end
    end
  end
  object OKBtn: TBitBtn
    Left = 352
    Top = 344
    Width = 93
    Height = 33
    Caption = 'Ok'
    Default = True
    Font.Color = clGreen
    Font.Height = -19
    Font.Name = 'Arial'
    Font.Style = []
    ModalResult = 1
    ParentFont = False
    TabOrder = 1
    OnClick = OKBtnClick
    Glyph.Data = {
      F6000000424DF600000000000000760000002800000010000000100000000100
      04000000000080000000CE0E0000D80E00000000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
      5555555555555555555555555205555555555555222055555555555522205555
      5555555222220555555555222222055555555722052220555555720555522055
      5555555555522205555555555555220555555555555552205555555555555572
      0555555555555557205555555555555552205555555555555555}
    Margin = 8
    Spacing = -1
  end
  object CancelBtn: TBitBtn
    Left = 448
    Top = 344
    Width = 93
    Height = 33
    Font.Color = clRed
    Font.Height = -19
    Font.Name = 'Arial'
    Font.Style = []
    ParentFont = False
    TabOrder = 2
    OnClick = CancelBtnClick
    Kind = bkCancel
    Margin = 4
    Spacing = -1
  end
end